﻿Imports BibliotecaDNI.DocumentoNacionalIdentidad


Module Module1
    Sub Main()
        Console.Write("Indique su DNI: ")
        Dim identidad As BibliotecaDNI.DocumentoNacionalIdentidad = New BibliotecaDNI.DocumentoNacionalIdentidad()
        identidad.miDni = Console.ReadLine()
        Console.WriteLine("La letra de su DNI es: " & identidad.obtenerLetraDni())
        Console.ReadLine()
    End Sub

    '    Class DocumentoNacionalIdentidad
    '        'declaramos las variables que necesito.
    '        Dim letra() As String = {"T", "R", "W", "A", "G", "M", "Y", "F", "P", "D", "X", "B", "N", "J", "Z", "S", "Q", "V", "H", "L", "C", "K", "E"}
    '        Public dni As Integer

    '        Function obtenerLetraDni() As String
    '            Return letra(dni Mod 23)
    '        End Function
    '        'creamos esta Propiedad para poder asignar desde fuera el dni y obtener la letra.
    '        Public Property miDni() As String
    '            Get
    '                Return dni
    '            End Get
    '            Set(ByVal value As String)
    '                dni = value
    '            End Set
    '        End Property

    '    End Class
End Module








'Dim resultado As String = ""

'Dim valor As Integer = dni Mod 23
'For i = 0 To letra.Length
'    If valor = i Then
'        resultado = letra(i)
'        Exit For
'    End If
'Next
'Return resultado